   
$a = 0;
while($a < 10){
   if( $a == 5 ){
      $a = $a + 1;
      redo;		#没有使用label参数，所以终止当前循环，直接执行下一次循环
   }
   print "Value of a = $a\n";
}continue{
   $a = $a + 1;
}

print "\n\n\n\n";

$b = 12;
$c = 1;
while($b > 1){
	while($c < 12){
		print "vaule b is $b\t";
		print "value c is $c\n";
	}continue{
		$c += 1;
	}
}continue{
	$b -= 1;
}